home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / oper_sys / oasis / oasisegs.lha / egs / hanoi.d < prev    next >
Text File  |  1992-03-25  |  236b  |  15 lines
  1. class hanoi {
  2. method:
  3.     public      main ().
  4.     private     han  (int N, A, B, C).
  5. }
  6.  
  7. hanoi {
  8.     main() |- han(20,1,2,3).
  9.  
  10.     han(N',_,_,_) :- N<=0.
  11.     han(N',A',B',C') |-
  12.             han(N-1,A,C,B);
  13.             han(N-1,C,B,A).
  14. }
  15.